ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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Wud A 
usu wus wus 
Md usu usu 
wus Mas Usd 
wud wud uu 
vues) uss ALD 
MiSs dud ares) 


PDRDDDD 222222 

poe Foe Foe om Foe Fee ee mm bm bm em) 
wu 

wus akeet 
wus wus uu 
wu wus uous 
wu uu ww 
wus uous uuu 
wu uuu uous 
uw wu usu 


2 
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22 
22 
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2252555555595 59555 
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oooco000co oo 
oo os 
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os oo og 
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coo os 
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osoocoocoo0c0cCo 
esoo0oc000Cc00Gc 
222222222 22222 


E 
prTTitierttt te: 
222222222222 


222222222222 


ecacac za 
eccacc ca 
ca ca ca 
ca ca [+ + 4 
ca ccc 
ca ccc 
cc <a 
<a za 
@eaeeaeaacacaeaacacaa 
Qaaaacaacacacacaca 
i 
mie 
oe 
e 


— 
ee ee 
ee ee ee tr 


mw MWWnwn 
nw NAWWMM 
mn nw nn 
nn nw nw 
mw “nw nn 
“wn nw own 
“nn nw nn 
mn nn nw 
NANMWM nw 
NMMM mn 
at at _—— 
—o exgane 
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LLLLLLLLLL 
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Extend to $1 character queue names. 


» 
> 


14-Sep-1984 CLIUTL.SRC TRANQUEUE . 3 2:1 
; 1 1 MODULE TRANQUEVE(ZTITLE ‘Translate queue name’ 
$ ¢ § IDENT = VOee 800! . 
. BEGIN 2 
Ae 5 
: § Bos : leeuenecensnensecceerentenneeseeerecrecrecseererteerentnnteneteennernetenttes 
3 ‘ft x 
3 § 5 1 Ie COPYRIGHT os 1978, 1980, 1982, 1984 BY * 
3 10 i? 1 !* DIGITAL EQU bas tl eGORPORATION, MAYNARD, MASSACHUSETTS. ® 
3 \) ; : is ALL RIGHTS RESER ® 
3 a 
$ ig if 1 is re SOFTWARE IS Sa UNDER A LICENSE AND MAY BE JSED AND sevice * 
5 14 14 1 is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pat AND WITH THE * 
3 15 015 1 ie INCLUSION OF THE ABOVE gh NOTICE. THIS SOFTWARE OR ANY sae * 
3 \$ 18 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
; 1 1 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
§ \8 OS } i. TRANSFERRED. * 
° * ® 
3 0 020 1 !* pie gt 7 IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
3 1 0021 1 !* SH ite BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ 88 § : :* CORPORA TION. * 
° . ® 
3 4 09 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 ; 5 ’ ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
De, 0037 1 is : 
4 . Bese : ieuenenseencnenereceenerecnnsenneersecececentererenennennnnnnennrenentntntent 
: : i i ++ 
3 g ¢ 1 / FACILITY: 
: 32 1 j i CLI Utilities 
: 35 0035 1 | ABSTRACT: 

5 6 61 This module contains a utility routine that performs the standard 

3 He $ : translation for queue names. 

: 39 39 1 | ENVIRONMENT: 

: 7.) a 0o1! VAX/VMS user mode. 

3 $3 041 ' - 

: 43 $ AUTHOR: M. Jack, CREATION DATE: 11-Jan-1982 

F 45 5 i MODIFIED BY: 

a i v03-001 mLJ0112 Martin L. Jack, 29-Apr-1983 0:34 

: § 1 

; 01! 


vs 
S333 


eee ne HEREOCHORE UGE YG SAN TBRAMSede Sb a a 
LIBRARY *SYSSLIGRARY:L18° ; 


ig 
; : Bs FORWARD ROUTINE 
3 6 5 TRAN_QUEUE ; ! Translate queue name 


16 
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vou~000 : VeSep=19be foitoro) — Fekiute°sreStRAngueve 6921 - 
: 38 § ! GLOBAL ROUTINE TRAN_QUEUE(INPUT_DESC ,OUTPUT_STRING)= 
; 60 1 !+4 
; § 1! 
5 o¢ O 1 ! FUNCTIONAL DESCRIPTION: 
; o7 1 } } This routine performs the standard translation of queue names. 
3 &5 j i ; INPUT PARAMETERS: 
: €9 . a2 INPUT _DESC - Address of a descriptor for the input string. The 
: o8 : : class must be unspecified or fixed. 
; % 6 1 OUTPUT_STRING = Pointer to a 16-byte area to receive the counted 
2 9 1! ASCII result, padded with binary zeros. Typically 
: re th : } this is an area in the $SNDSMB parameter. 
; - re 1 ! IMPLICIT INPUTS: 
— 073 1! NONE 
3 7 0074 1! 
H 7 0075 1 ! OUTPUT PARAMETERS: 
0076 1! NONE 
fc re 0077 1! 
H $9 Boe 1 ! IMPLICIT OUTPUTS: 
3 1 79 «1! NONE 
3 HG 0080 1! 
3 8 0081 1 ! ROUTINE VALUE: 
; «84 0082 1! SS$_NORMAL Successful completion 
3 89 0083 1! SS$_IVLOGNAM Input string Longer than poets NAMLENGTH characters, or 
: B6 poee ! resulting string longer than 37 characters 
; 88 0086 1 ! SIDE EFFECTS: 
3 9 0087 1! NONE 
; 88 1! 
an |) | 89 1 !<- 
3 4 0090 1 
; + 1 as 
: 95 INPUT_DESC: REF BLOCKC BYTE) ! Input string 
: 38 LOCAL OUTPUT_STRING: REF VECTORE BYTE); ! Qutput buffer 
: 98 STATUS, ! Status return 
; WF : VECTOR $4 ! Descriptor for input string 
3; 100 RSLBUF : VECTOR ! pgscriptor for $TRNLOG result 
: 198 TRNLOG_BUFFER: VECTOR LOGSC_NAMLENGTH, BYTE 3; ! STRNLOG result buffer 
: 10 
3 Hr4 : Pick up input string descriptor. 
: 106 if .INPUT_DESCCDSCSW LENGTH) GTRU LOGSC_NARLENGTH THEN RETURN SS$_IVLOGNAM; 
: 10 coe } = INPUT DESC EDSE W_LENGTHI; 
3 108 LOGNAML1) = .INPUT~DESCLDSC$A_POINTER); 
; 109 STATUS = SS$_NORMAL; 
+ 111 
: Ng ! Loop for 10 Logical name translations. The last iteration is only for 
: a : upcasing and blank-compressing the tenth translation, if any. 


— 
= 


Se 
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DECR _ 10 T0 0 DO 


~-@ 
ome 
ade 
pew 


L 
OUTPUT_CURSOR: REF VECTORC BYTE); 


1 
1 
1 
1 
1 
1 
1 


: Upcase and remove spaces, tabs, and nulls from the string. 


GurPUT ~ FUROR , eer pur eeR: 


INCR_N-FROM 0 . LOGNAM 1 00 
BEGIN 


C: BYTE; 
LOG rae & oN; 


C.LO 
C' * AND .C NEQ 16° Fup .C NEQ 0 


GEQU i AND .C LEQU %C°z* THEN C = .C = &C*a’ + 2C°A'; 


St 8 a tt tt 


5 
; 
5 
8 
5 


OT oC; 
La CURSOR = .ourPur CURSOR + 1; 
LOGNAMLO 


4 
4 
4 
4 
4 
4 
4 
T_CURSOR(O) = 
4 
END; 
!' Build a descriptor for the — and blank-compressed result and 
remove a trailing colon, if a 
LOGNAM ij = = ots BUFFER; 
PUT. CURSOR = .LOGNAMC1); 
IF LOGNAME COIN 
IF eae EQL %C*:* THEN LOGNAMCO] = .LOGNAM[O) - 1; 
! If this is the eleventh iteration or there was no translation on the 


previous iteration, we are done. 
if .1 EQL 0 OR .STATUS<0,16> EQL SS$_NOTRAN THEN EXITLOOP; 


: Attempt translation. 
Rsi BUrEO} = = LOGSC at iit ee 
RSLBUF en 06 BUFFER 


STATUS = STRNLOG(LOGNAM=LOGNAM, RSLLEN= RSLBUF, RSLBUF=RSLBUF); 
IF NOT * STATUS. SHEN RETURN .STATUS; 


: Establish the result as the new input. 
OGNAM(O -RSLBUF (0); 
Eta = DRStBUFET 


PED AAGIAIINIIN E BEBE SEEEEWIW 


OUIMMUIUIUVIVIUUIE BES E LLL LEW Tey te Cet a ey ae Nabe a eee a 


= .RSLBUFCI 


Be Se Se Se Ge Se Se Se Ge Se Se Se Ge Se Ge Ge Sse Se Se Ge Ge Ss Be Se FF Ge Ge Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Se See Se Sees Ssetesg 
el me mm kk a a at ed ed td a = = = dd “a SS 3 2 Ss 


oooococece|escoscossesssssssssssssssesssssssesss 


cm ee ee ed ed ed ad od 2 td 2 4 2 as 


NNOOO 
SO 0o~ 


! Ensure that the result will fit and return it as a counted ASCII string, 


K 16 
ee 1eeSep-1986 2:10:01 Le Tut SReSTRANOUEUE -682;1 


3 i ) H padded with binary zeros to a total of 32 bytes. 
: 17 1 if .RSLBUFCO] GTRU 31 THEN RETURN SS$_IVLOGNAM; 
; 138 1 OUTPUT STRINGCO) = RSLBUELON, 7 
: 176 174 2 CHSCOPY( .RSLBUFCOJ, TRNLOG_BUFFER, 0, 31, OUTPUT_STRINGL1)); 
: 17 175 2 SS$_NORMAL 
: 178 176 1 END: 
-TITLE TRANQUEUVE Translate queue name 
"IDENT \vOs-OD0% " 
.EXTRN SYSSTRNLOG 
-PSECT S$CODE$,NOWRT,2 
003¢ 00000 .ENTRY TRAN_QUEUE, Save R2,R3,R4,R5 
5E BO AE 4 tits MOVAB -80(SP) 
5 04 AC DO 00006 MOVL § INPUT_DESC, RO 
0040 8F 60 81 OO00A CMPW 3s (RO) , "#64 
03 1B 0000F BLEQU 1$ 
008F 31 0011 BRW aS 
48 AE 60 ¢ 0014 1$ MOVZWL (RO), LOGNAM 
4C AE 04 AO dO 00018 MOVL  4(ROS, LOGNAM+4 
50 gt DO 0001 MOVL #1, STATUS 
54 A DO 000 MOVL #10, I 
53 6E 9E 00023 28: MOV TRNLOG_BUFFER, OUTPUT_CURSOR 
52 01 CE 00026 MNEGL #1, N 
23 11 00029 BRB 
51 4C BE42 90 00028 3S: MOVB  @LOGNAM+4(NJ, C 
20 51 91 000 CMPB #32 
18 13 9005 BEQL $ 
09 51 91 000 CMPB ‘ "9 
16 13 000 BEQL 4 
51 95 0003A TSTB ¢ 
12 13 0003¢ BEQL $ 
61 = 8F 51 9 0035 CMPB -, #97 
09 1F 0004 BLssu 4$ 
7A oS 1 91 00044 CMPBCéC,,:«#122 
03 1A 00048 BcTRU 4§$ 
51 20 : 004A SUBB2 #32. C 
a3 1 0 4D 4$: MOVB  C, (OUTPUT_CURSOR)+ 
D6 52 48 AE F 50 5$: AOBLSS L .N 
4C A 6—E 9 3 MOV TRNLOG BUFFER LOGNAM+4 
48 AE 5 4C A f 099 SUBL OGNAM?4, OUTPUT_CURSOR, LOGNAM 
3A FF A391 061 CMPB = = 1(OUTPUT_CURSOR), #58 
0 if 63 BNEQ & 
48 AE Dd? 000 DECL § LOGNAM 
D3 O6A 6$: TSTL 
F 1 C BEQL $ 
0629 = «BF 0 8 $ CMPW STATUS. #1577 
; 3 BEQL 
40 AE 40 8F 9A 0007 MOVZBL #64, RSLBUF 
44 AE E 3 7A MOVAB TRNLOG_BUFFER, RSLBUF +4 
— 7C¢ ie CLRQ. = =(SP) 
7E D4 CLRL 0s = (SP) 


Page 
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(3) 


TpANBuEUE ‘Translate queue nane i$Seoct9Rs 00:40:55 — YNcHT BL tag=kz v4ete7ag, age 


c AE oF PUSHAB RSLBUF ; 
AE OF PUSHAB RSLBUF ; 
C AE OF PUSH : 
000000006 99 06 FB CALLS SYSSTRNLOG : | 
5 BLBC STATO US, 10$ : 0159 
48 AE 40 AE 7D 0009 MOVG -RSLBUP, LOGNAM : 0164 
86 54 F4 O009A SOBGEQ | : 0113 
1F 40 AE D1 0009 78: CHBLRELBUF, #31 : 0172 
06 18 000A BLEGU 9 : | 
500154 BF 3 O00KS Bs ROVZL #340, RO : 
50 08 AC DO O00A9 9$: MOV. OUTPUT STRING, RO : 0173, 
6 40 AE AD MOVE —_—RSLBUF ; | 
1F 00 6E 40 AE 20 00081 MOVES RSLBUF, TRNLOG.BUFFER, #0, #31, 1(RO) : 0174 
50 01 00 00089 MOVL #1, RO : 0176. 
04 000BC 108: _—RET : 


3; Routine Size: 189 bytes, Routine Base: S$CODE$ + 0000 
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Sep-19 CLIUTL.SRCJTRANQUEUE .832;1 
1 177 1 END 
189 Ee 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 189 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


eae ee eee eee Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 

; ~8255$DUA28: CSYSLIBILIB.L32;1 18619 9 0 1000 00:01.9 
4 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS: TRANQUEVE/OBJ=OBJ$: TRANQUEUE MSRC$: TRANQUEVE/UPDATE=(ENHS$: TRANQUEUE) 
3; Size: 189 code + 0 data bytes 

} Run Time: 6:06.5 , 

3 Elapsed Time : $-3 

3 Lines/CPU Min: 16 

Z ponenae/re-e “Min: 1366 

3; Memor # Ps sed: 96 pages 

3; Compilation Complete 
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